﻿Imports extranet.BE
Imports MySql.Data.MySqlClient

Public Class DASeguranca

  Public Function SelecionaPermissoes(ByVal objBEGrupoAcesso As BEGrupoAcesso, ByVal objBETela As BETela) As BESeguranca
    Dim objBESeguranca As New BESeguranca(objBEGrupoAcesso, objBETela)
    Dim objBD As New BancoDeDados
    Dim objDS As New DataSet

    Try
      objDS = objBD.ExecutaQuery("SELECT * FROM ext_grupo_acesso_telas_sistema " & _
                                 "WHERE id_grupo = '" & objBEGrupoAcesso.IdGrupo & _
                                 "'  AND id_tela = '" & objBETela.IdTela & "'")
      With objDS.Tables(0).Rows
        If .Count <> 0 Then
          objBESeguranca.Leitura = .Item(0)("leitura")
          objBESeguranca.Escrita = .Item(0)("escrita")
          objBESeguranca.Modificacao = .Item(0)("modificacao")
          objBESeguranca.Exclusao = .Item(0)("exclusao")
        End If
      End With
    Catch ex As ApplicationException
      Throw New ApplicationException("extranet.DA.DAGrupoAcesso.Busca(): " & ex.Message)
    End Try
    Return objBESeguranca
  End Function

End Class
